home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The 640 MEG Shareware Studio 2
/
The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO
/
diag
/
memsz153.zip
/
ESPA¥OL.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1992-12-13
|
1KB
|
52 lines
/* ESPAÑOL.CMD: Instalación de MEMSIZE en español */
/* Cargar REXXUTIL */
Call rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs
Call sysloadfuncs
Call SysCls
Say 'Instalación de MEMSIZE...';
Say '';
Say 'Por favor, escriba el nombre completo del directorio en el';
Say ' que quiere instalar el programa MEMSIZE (por defecto es C:\OS2\APPS): ';
Pull Directory
If Directory = "" Then Directory='C:\OS2\APPS'
Say "¿Quiere instalarlo de forma que se ejecute automáticamente al arrancar? (S/N)";
Pull YesNo
If YesNo = "S" Then
Do
Folder='<WP_START>'
Say "El objeto se copiará en la carpeta Inicio.";
End
Else
Do
Folder='<WP_DESKTOP>'
Say "El objeto se copiará en el Escritorio.";
End
Say 'Copiando MEMSIZE al directorio ' Directory '...';
Say '';
Language='ESPAÑOL'
Copy MEMSIZE.EXE Directory
Copy Language".DLL" Directory"\MEMSIZE.DLL"
Copy Language".HLP" Directory"\MEMSIZE.HLP"
Say "Creando el objeto del programa...";
Say '';
Type='WPProgram'
Title='Recursos del Sistema'
Parms='MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\MEMSIZE.EXE;STARTUPDIR='Directory';OBJECTID=<MEMSIZE>;NOPRINT=YES'
Result=SysCreateObject(Type,Title,Folder,Parms)
If Result=1 Then
Call charout ,"... El objeto se ha creado. Fin"
Else
Call charout ,"... ¡No se ha podido crear el objeto! Estado final=" Result
Exit